home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / STAND.ARC / CHECK.OUT < prev    next >
Text File  |  1990-03-28  |  3KB  |  115 lines
  1. image(2) ----> "2"
  2. image('cab') ----> "'abc'"
  3. image(&lcase) ----> "&lcase"
  4. image('abcdefghijklmnopqrstuvwxyz') ----> "'abcdefghijklmnopqrstuvwxyz'"
  5. image(&input) ----> "&input"
  6. image() ----> "&null"
  7. image(&null) ----> "&null"
  8. image([1,2,3]) ----> "list_2(3)"
  9. image([]) ----> "list_3(0)"
  10. image([,]) ----> "list_4(2)"
  11. image(table()) ----> "table_1(0)"
  12. image(table(3)) ----> "table_2(0)"
  13. image(list(0)) ----> "list_5(0)"
  14. image(repl) ----> "function repl"
  15. image(main) ----> "procedure main"
  16. image(repl(&lcase,10)) ----> "\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\""
  17. image(array) ----> "record constructor array"
  18. image(a) ----> "&null"
  19. image(array) ----> "record constructor array"
  20. image(image) ----> "function image"
  21. integer(2) ----> 2
  22. integer("2") ----> 2
  23. integer(" 2") ----> 2
  24. integer("2 ") ----> 2
  25. integer("+2") ----> 2
  26. integer("-2") ----> -2
  27. integer("- 2") ----> none
  28. integer(" -    2 ") ----> none
  29. integer("") ----> none
  30. integer("--2") ----> none
  31. integer(" ") ----> none
  32. integer("-") ----> none
  33. integer("+") ----> none
  34. integer("7r4") ----> 4
  35. integer("4r7") ----> none
  36. integer("4r 7") ----> none
  37. integer("7r 4") ----> none
  38. integer("16rff") ----> 255
  39. integer("36rcat") ----> 15941
  40. integer("36Rcat") ----> 15941
  41. integer("36rCAT") ----> 15941
  42. integer("1r1") ----> none
  43. integer("2r0") ----> 0
  44. integer(integer) ----> none
  45. integer := abs ----> function abs
  46. numeric(2) ----> 2
  47. numeric("2") ----> 2
  48. numeric(" 2") ----> 2
  49. numeric("2 ") ----> 2
  50. numeric("+2") ----> 2
  51. numeric("-2") ----> -2
  52. numeric("- 2") ----> none
  53. numeric(" -    2 ") ----> none
  54. numeric("") ----> none
  55. numeric("--2") ----> none
  56. numeric(" ") ----> none
  57. numeric("-") ----> none
  58. numeric("+") ----> none
  59. numeric("7r4") ----> 4
  60. numeric("4r7") ----> none
  61. numeric("4r 7") ----> none
  62. numeric("7r 4") ----> none
  63. numeric("16rff") ----> 255
  64. numeric("36rcat") ----> 15941
  65. numeric("36Rcat") ----> 15941
  66. numeric("36rCAT") ----> 15941
  67. numeric("1r1") ----> none
  68. numeric("2r0") ----> 0
  69. numeric(2) ----> 2
  70. numeric(2) ----> 2
  71. numeric(+2) ----> 2
  72. numeric(-2) ----> -2
  73. numeric() ----> none
  74. numeric(7r4) ----> 4
  75. numeric(16rff) ----> 255
  76. numeric(36rcat) ----> 15941
  77. numeric(36Rcat) ----> 15941
  78. numeric(36rCAT) ----> 15941
  79. numeric(2r0) ----> 0
  80. numeric(+-2) ----> -2
  81. numeric(++2) ----> 2
  82. numeric(--2) ----> 2
  83. 36 ^ -9 ----> 0
  84. -36 ^ -9 ----> 0
  85. f := open("foo.baz","w") ----> file(foo.baz)
  86. write(f,"hello world") ----> "hello world"
  87. close(f) ----> file(foo.baz)
  88. &ascii
  89. "09:50:52"
  90. &cset
  91. "1990/03/28"
  92. "Wednesday, March 28, 1990  9:50 am"
  93. &errout
  94. failed
  95. "megaron.cs.arizona.edu"
  96. &input
  97. &lcase
  98. 2
  99. &null
  100. &output
  101. 1
  102. 0
  103. ""
  104. 66
  105. &ucase
  106. "Icon Version 8.0.  March 25, 1990"
  107. System("rm foo.baz") ----> 0
  108. 1
  109. 0
  110.    7 check.icn
  111. 0
  112. 1
  113. hello world
  114. 0
  115.